Top 10k strings from MicroHobby Semanal - Issue 053-056 (1985)(Hobby Press)(es)(Side B).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
7 ;" PARE LA CINTA ":
3 mas=mas-.5
3 A$=A$(b(posx)+1
2 ;"TIENES ";
2 ;"PULSA UNA TECLA PARA EMPEZAR"
2 ;"PARE LA CINTA":
2 ;"FICHAS";
2 ;"CAMIONES: ";cam:
2 ;"APOSTADAS":
2 ;" PULSA UNA TECLA"
2 (NPROG/DOS)
2 "22",CERO;B$:
1 z;z;" FICHAS A ";
1 z$(z,m)=raro
1 z$(z,m)=k$
1 z$(p2+p3*(p2=0
1 y$)*(z$(p2+p3*(p2=0
1 xxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzzzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxzxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzxzzzzzzzzzzzzzzzzxxxxxxxxxzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzz
1 x$=" PRUEBA TU SUERTE EN LA RULETA ZX.PULSA ""P"" PARA EMPEZAR A JUGAR,""I"" PARA INSTRUCCIONES. "
1 wtkthctacthaahcvukuhdubduhbbhdtuh
1 w$="PARA APOSTAR DEBERAS MOVER EL*ASTERISCO SITUADO EN LA PARTE*SUPERIOR DERECHA DEL RECUADRO*QUE APARECERA AHORA.*PARA ELLO USA LAS TECLAS ""5""*Y ""8"".CUANDO TENGAS COLOCADO*EL ASTERISCO JUNTO A LA CASILLA*QUE QUIERAS APOSTAR PULSA LA*""P"" Y A CONTINUACION INDICA*LA CANTIDAD QUE QUIERAS APOSTAR*PERO SI DESEAS CAMBIAR ALGUNA*APUESTA PULSA LA ""C"".*SOLO PODRAS CAMBIAR LA APUESTA*INMEDIATAMENTE DESPUES DE HACER*CADA UNA."
1 w#q#:&\w#"$\
1 total=tot:
1 total=tot+3
1 tot=total:
1 tot=tot-apu
1 tot=tot+apu:
1 t$="VERDE"
1 t$="BLANCO":
1 rec);rec;" CAMIONES: ";rec2:
1 q(e$(i))=1
1 po=a7)+(p8
1 po=a6)+(p7
1 po=a5)+(p6
1 po=a4)+(p5
1 po=a3)+(p4
1 po=a2)+(p3
1 po=a1)+(p2
1 p8;p8;" FICHAS A ";
1 p7;p7;" FICHAS A ";
1 p6;p6;" FICHAS A ";
1 p5;p5;" FICHAS A ";
1 p4;p4;" FICHAS A ";
1 p3;p3;" FICHAS A ";
1 p2;p2;" FICHAS A ";
1 p1;p1;" FICHAS A ";
1 p1,p2,p3,p4,p5,p6,p7,p8
1 niv=orden:
1 micro
1 mas=mas+.5
1 mas1=mas1-1
1 linea=linea+1
1 k$=z$(p2+p3*(p2=0
1 itas=itas+1
1 i(con)=(17
1 e$=i$+"="+b$:
1 descode &
1 d$(z$(p2+p3*(p2=0
1 d$(k$);" de (";p2+p3*(p2=0
1 d$(k$);" DIRECTAMENTE":
1 d$(i$);"=";
1 d$(e$(i)):
1 cuenta=cuenta-1
1 cuenta=cuenta+1
1 comprensort
1 cirujano A
1 carga la rutina de comprimir
1 c(c1)=c(c1)+1
1 c$=c$+A$(b(i)
1 c$=c$+"^"+A$(b(i)+1
1 b(i)=b(i+1
1 b(i)=b(i)+1
1 almacen
1 a8=i(con):
1 a7=i(con):
1 a6=i(con):
1 a5=i(con):
1 a4=i(con):
1 a3=i(con):
1 a2=i(con):
1 a1=i(con):
1 a$="ESTE JUEGO CONSISTE EN APOSTAR*FICHAS A LOS NUMEROS Y LETRAS*QUE APARECERAN EN LA RULETA ZX.*SI LA AGUJA SE PARASE EN ALGUN*NUMERO O LETRA DE LOS QUE HAS*APOSTADO,GANARAS EL TRIPLE DE*LO APOSTADO.PERO SI NO OCURRE*ASI,GANARA LA BANCA ZX.*SE PUEDEN HACER COMO MAXIMO UN*TOTAL DE OCHO APUESTAS;PODRAS*APOSTAR TANTAS FICHAS COMO*TENGAS.CUANDO NO DESEES APOSTAR*MAS,PULSA LA ""R""."
1 a$=" DESPEDIDO DE LA FABRICA "
1 X);",LONGITUD= ";I
1 X)+("CODIGO MAQUINA"
1 UNO;"PONGA EN MARCHA LA CINTA";
1 TZX por Manuel Gomez Amate
1 SPACE-UNO,X1
1 SPACE-UNO,CERO:
1 SPACE,LINEA:
1 SPACE,CERO:
1 Resolucion
1 RULETA ZX";
1 Montecarlo
1 Microfile3
1 Microfile2L
1 Microfile1
1 LOECHE 6,7,B MADRID 28007
1 I,CERO;,,:
1 Hobby Press
1 Frecuen d
1 Descompren
1 DOS=UNO+UNO
1 DEVUELVEN LOS CARACTERES ORIGINALES DEL SPECTRUM
1 Comprensor
1 Cirujano )
1 Castellano
1 CINTA 14 CARA B
1 CERO;" ";
1 CARA B \
1 CARA B -
1 C$=C$+"*"+A$(b(i)+1
1 C$=" Por favor, elija un programa "
1 B$=E$((pe+1
1 B$="1.23456789":
1 B$="("+B$+")":
1 B$=" "
1 Almacen /W
1 A$=E$((pe+1
1 A$(b(posx))=
1 A$(b(i)))+A$(b(i)+1
1 =X-2X)=X-256
1 ="L")-(378
1 ;"cdeffgh";
1 ;"_`pqpq";
1 ;"UNA DE TUS APUESTAS ACERTO":
1 ;"TRAS LAS ULTIMAS APUESTAS";';" TIENES ";tot;" FICHAS":
1 ;"TENIAS ";tot;" FICHAS TRAS LA ULTIMA";
1 ;"SI NO QUIERES VOLVER A PROBAR";';" SUERTE PULSA LA ""N"" SI NO";';" PULSA CUALQUIER TECLA":
1 ;"SCREEN ";x;" = ";z(x);" BYTES"
1 ;"RECUERDA:";
1 ;"RECUERDA: CUANDO TE PREGUNTE ""ENTENDIDO?"" PULSA UNA TECLA ":
1 ;"RECORD= P$: ";"00000"(
1 ;"Presione ENTER":
1 ;"Para utilizar correctamente elprograma cargar el code en la direccion 23296 y activarlo con
1 ;"PULSE CUALQUIER TECLA."
1 ;"PULSA UNA TECLA":
1 ;"PONGA CINTA CON SCREENS";
1 ;"PLAY DEL CASSETE"
1 ;"PARA SABER SU COLOR";
1 ;"P$:0000";#0
1 ;"NO PUEDO DESPEJAR ";
1 ;"LONGITUD DE LOS SCREENS"
1 ;"LA AGUJA SE DETUVO EN ";c$;" ";n$;
1 ;"Grabar con SAVE CODE ";oa;",";lo+14
1 ;"FRECUENCIMETRO DIGITAL";
1 ;"FRECUENCIA":
1 ;"FIN DEL PROBLEMA":
1 ;"ESPERA UN MOMENTO,CARGANDO EL CM":
1 ;"ENTENDIDO ?":
1 ;"EL PREMIO RECAYO EN ";c$;" ";n$;
1 ;"DE COLOR ";t$:
1 ;"DE (";z;") TENGO ";E$:
1 ;"DATOS:":
1 ;"CIRUJANO"
1 ;"CARGA LA RUTINA DE EXPANDIR":
1 ;"CARGA EL BLOQUE DE ";
1 ;"ARRANQUE CINTA Y PULSE UNA TECLA":
1 ;"ARCHIVOS COMPRIMIDOS":
1 ;"A COMPRIMIR Y PULSE EL";
1 ;"1 2 3 4":
1 ;"00000000000000000000000000000000":
1 ;"0"'"1"'"
1 ;"(";i;")";E$:
1 ;"""R"" EMPEZAR";
1 ;"""P"" APOSTAR";
1 ;"""C"" CAMBIAR";
1 ;"""8"" DERECHA";
1 ;"""5"" IZQUIERDA";
1 ;" SE ACABO.YA NO TIENES DINERO."'''"SI TE QUIERES ARRIESGAR A JUGAR"'"OTRA PARTIDA,PULSA CUALQUIER"'"TECLA,DE LO CONTRARIO PULSA"'"LA ""N"".":
1 ;" Hallo primero ";
1 ;" HAS TENIDO SUERTE";
1 ;" FICHAS":
1 ;" FICHAS"
1 ;" APUESTA.AHORA TIENES ";total;" FICHAS":
1 ;" PULSA UNA TECLA":
1 ;" ";
1 ;" ":
1 ;" PULSA UNA TECLA":
1 ;" ";
1 ;" ":
1 ;" ";
1 ;" ":
1 ;" ":
1 ;" ";:
1 ;" ":
1 ;" "
1 8888888888888888888888888888888888888888888888888888888888888888
1 /t);" Hz ":
1 ----FRECUENCIMETRO-----
1 --------DIGITAL--------
1 ----------V&A----------
1 ,o)="w"))=1
1 ,o)="w")):
1 ,o)="v")+(z$(11
1 ,o)="v")*117
1 ,D.L.: M-36598-84
1 **COMPROBANDO ACIERTO**
1 ***TABLERO APUESTAS***
1 ***REPARTO PREMIO***
1 ***MOVIMIENTO AGUJA***
1 ***INSTRUCCIONES***
1 ***FICHAS APOSTADAS***
1 ***DIBUJO RULETA***
1 ***APUESTAS***
1 ***********************
1 *** CINTA-MICROHOBBY ***
1 *((y$="v")+(y$="w"))
1 ),m)=raro)=1
1 ),m));" para obtener ";
1 ))+"("+B$+")":
1 (z$(p2+p3*(p2=0
1 (VALOR)<"A"
1 ("+c$+")":
1 ("+B$+")^2":
1 ("+B$+")^(1/("+C$+"))":
1 "wtk","thc","tac","tha","ahc","vuk","uhd","ubd","uhb","bhd"
1 "numero impar de parentesis !!!":
1 "b^2+h^2=d^2"
1 "a^2+h^2=c^2"
1 "a","b","c","d","h","t","u","v","w"
1 "Origen= ";:
1 "Origen final= ";of
1 "Origen actual= ";oa
1 "Num. de pantallas a comprimir ";n
1 "Nombre con el que quiere salvar el bloque de screens= ";
1 "NO HAY DATOS":
1 "NO HAY ""="" !!!":
1 "MicroHobby Semanal numeros 53 a 56
1 "METE LOS DATOS "'
1 "Longitud= ";lo
1 "Longitud= ";:
1 "LONGITUD= ";i
1 "Ejecutar con USR ";p
1 "EXPRESI0N NO VALIDA":
1 "E-Comprensor","F-Descompren","G-Microfile1","H-Microfile2","I-Microfile3","J-Resolucion"
1 "Direccion ejecucion= ";de
1 "Direccion donde se ha cargado el bloque= ";m:
1 "Direccion donde se almacena los archivos comprimidos= ";m
1 "Direccion de ejecucion= ";:
1 "CUANTO QUIERES APOSTAR AHORA ? ";apu:
1 "CUANTO APUESTAS ? ";apu:
1 "CUAL ES LA INCOGNITA ? ";
1 "A-Frecuen","B-Montecarlo","C-Almacen","D-Cirujano"
1 "A","B","C","D","E","F","G","H"
1 "64"+NPROG)
1 "5";"cara: ";
1 "5";"Programa: ";
1 "5";"Programa inexistente":
1 "5";"'R' Vuelve al menu"
1 "5";"'L' Carga el programa";
1 "32"-I;C$(
1 "22",CERO;C$(I
1 "22",CERO;B$
1 "22",CERO;
1 "1","2","3","4","5","6","7","8","9","A","B","C","D","E","F","G"
1 "0= BASIC 3= CODIGO MAQUINA ";X
1 estan en a,b,c,d en modo GRAFICO,respectivamente. ":
1 Por favor, elija un programa
1 Matti Hemmi 1985
1 RULETA ZX
1 C